home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / top secret (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  95 lines
  1. 30 PRINT CHR$(147)
  2. 40 PRINT "THIS IS A TOP SECRET PROGRAM"
  3. 60 PRINT
  4. 70 PRINT "PRESS <RETURN> AFTER EACH REPLY."
  5. 90 PRINT
  6. 100 PRINT"WHAT IS YOUR CODE NAME";
  7. 110 INPUT N$
  8. 120 IF N$ ="" THEN 100
  9. 130 PRINTCHR$(147)
  10. 140 PRINT "CONGRATULATIONS, "N$"!"
  11. 150 PRINT"YOUR CODE NAME IS ACCEPTED."
  12. 160 PRINT"NOW, PLEASE TYPE A FOUR DIGIT"
  13. 170 PRINT "CODE NUMBER, THEN PRESS <RETURN>."
  14. 190 PRINT
  15. 200 INPUT "WHAT IS THE NUMBER";N
  16. 220 IF N>999 AND N<10000 THEN 290
  17. 240 PRINT
  18. 250 PRINT "INVALID NUMBER! TRY AGAIN."
  19. 270 PRINT
  20. 280 GOTO 200
  21. 290 PRINT CHR$(147)
  22. 300 PRINT "YOUR NAME IS: "N$
  23. 310 PRINT
  24. 320 PRINT "YOUR NUMBER IS: "N
  25. 330 PRINT
  26. 340 PRINT "IS THAT RIGHT? (Y/N)"
  27. 350 GET A$
  28. 360 IF A$ = "" THEN 350
  29. 370 IF A$ <> CHR$(89) THEN RUN
  30. 380 PRINT CHR$(147)
  31. 390 PRINT"O.K., "N$", PRESS <C> TO"
  32. 400 PRINT "BEGIN A QUICK HARDWARE CHECK."
  33. 420 GET A$
  34. 430 IF A$ <> CHR$(67) THEN 420
  35. 440 PRINT CHR$(147)
  36. 450 FOR T = 1 TO INT(RND(1)*8)+5
  37. 460 PRINT "LOCATION #"T"= O.K."
  38. 470 FOR D = 1 TO 600
  39. 480 NEXT D
  40. 490 NEXT T
  41. 500 PRINT "LOCATION #"T"=TROUBLE"
  42. 510 PRINT
  43. 520 PRINT "PRESS <RETURN> FOR HELP."
  44. 530 GET A$
  45. 540 IF A$ <> CHR$(13) THEN 530
  46. 550 PRINTCHR$(147)
  47. 560 PRINT N$", DIAGNOSTICS SHOW"
  48. 570 PRINT "THAT YOUR COMPUTER HAS A"
  49. 580 FOR X = 1 TO 27
  50. 590 READ P
  51. 600 PRINT CHR$(P);
  52. 610 FOR D = 1 TO 400
  53. 620 NEXT D
  54. 630 NEXT X
  55. 640 PRINT
  56. 650 PRINT"PLEASE WAIT 15 SECONDS"
  57. 660 PRINT "FOR A COMPLETE DIAGNOSIS. TIME:"
  58. 690 FOR T = 15 TO 1 STEP -1
  59. 700 FOR D = 1 TO 600
  60. 710 NEXT D
  61. 720 PRINT CHR$(19)
  62. 730 FOR X = 1 TO 4
  63. 740 PRINT
  64. 750 NEXT X
  65. 760 PRINT TAB(34);CHR$(20);CHR$(20);CHR$(20);T
  66. 770 NEXT T
  67. 780 PRINT CHR$(147)
  68. 790 READ A,B
  69. 800 IF A = -1 THEN 860
  70. 810 FOR Z = A TO B
  71. 820 POKE Z,160
  72. 830 POKE Z+54272,4
  73. 840 NEXT Z
  74. 850 GOTO 790
  75. 860 READ A,B
  76. 870 IF A = -1 THEN 930
  77. 880 FOR Z = A TO B STEP 40
  78. 890 POKE Z,160
  79. 900 POKE Z+54272,4
  80. 910 NEXT Z
  81. 920 GOTO 860
  82. 930 GOTO 930
  83. 2000 DATA 83,69,86,69,82,69,32,73,78,84,69,82,78,65
  84. 2010 DATA 76,32,77,65,76,70,85,78,67,84,73,79,78
  85. 2020 DATA 1067,1072,1074,1079,1081,1086,1088,1094
  86. 2030 DATA 1227,1232,1234,1239,1241,1246,1488,1494
  87. 2040 DATA 1496,1501,1547,1552,1554,1559,1561,1566
  88. 2050 DATA 1576,1581,1707,1711,1736,1741,1954,1959
  89. 2060 DATA 1961,1966,1968,1974,1976,1981,-1,-1
  90. 2070 DATA 1067,1467,1547,1947,1072,1472,1074,1474
  91. 2080 DATA 1554,1954,1079,1239,1559,1959,1081,1481
  92. 2090 DATA 1561,1961,1284,1324,1365,1405,1086,1246
  93. 2100 DATA 1446,1486,1566,1926,1568,1968,1131,1451
  94. 2110 DATA 1096,1496,1576,1736,1741,1981,-1,-1
  95.